home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / spiele / patches / whizzhd-install / whizzhd-install < prev    next >
Text File  |  1996-02-02  |  9KB  |  266 lines
  1. ;$VER: Whizz Install 1.2 (2.2.96)
  2. ;
  3. ;Install-Script & HD-Loader ©1996 Thomas Kessler (kessler@fim.uni-erlangen.de)
  4. ;All rights reserved.
  5. ;Feel free to contact me via email if you have any questions
  6. ;or if you want to publish this installer-script on disk or cd.
  7. ;
  8. ;Whizz ©1995/96 Flair Software(tm) & Amiga Technologies(tm) GmbH
  9. ;All rights reserved.
  10.  
  11. (set #install-version "1.2")
  12. (set old-level @user-level)
  13. ; --- english by Thomas Kessler ---
  14. (set #msg_welcome (cat
  15.     "\n\nWhizz HD-Installer "#install-version"\n\n"
  16.     "for the Whizz AGA disk-version\n"
  17.     "from Flair Software(tm)\n"
  18.     "provided free with the Amiga(tm)\n"
  19.     "from Amiga Technologies(tm) GmbH\n\n"
  20.     "Script & HD-Loader ©1996 Thomas Kessler\nAll rights reserved."))
  21. (set #msg_nomem "\nYou need a memory-expansion for 'WhizzHD'.")
  22. (set #msg_notrackread "Can't find required file:\n'Data/TrackReader'")
  23. (set #msg_choosedir (cat
  24.     "Choose a destination-directory on your harddisk.\n"
  25.     "A new drawer for Whizz will be created there."))
  26. (set #msg_space1 "\nApproximately 1810K of harddisk space\nis needed on your volume ")
  27. (set #msg_space2 "\n\nFree space: ")
  28. (set #msg_space3 "\n\nDelete or transfer some files and try again.")
  29. (set #msg_choose_insert "\nPlease select a disk-drive and\ninsert the disk labeled ")
  30. (set #msg_nodrive1 "\nCan't find DF")
  31. (set #msg_nodrive2 ":\nPlease select another disk-drive.")
  32. (set #msg_baddisk1 "\nPlease insert the disk labeled ")
  33. (set #msg_baddisk2 "\nin your drive DF")
  34. (set #msg_reading1 "Reading disk-image")
  35. (set #msg_reading2 "from")
  36. (set #msg_reading3 "\nPlease wait...")
  37. (set #msg_readerr1 "\nCan't create disk-image")
  38. (set #msg_readerr2 ".\nCheck everything and try again.")
  39. (set #msg_exit1 (cat
  40.     "Note: WhizzHD needs about 1.8M continous memory\n"
  41.     "and does not return to Workbench.\n\n"))
  42. (set #msg_exit2 (cat
  43.     "Whizz was designed for a 'normal' A1200. It should\n"
  44.     "also work on an A4000/030 or better (but then make\n"
  45.     "sure that '68040.library' or similar is not installed\n"
  46.     "or try to start WhizzHD right after a system-reset)."))
  47. (set #na "\n Sorry, no help available.")
  48. ; --- deutsch by Thomas Kessler ---
  49. (if (= @language "deutsch")
  50. (
  51. (set #msg_welcome (cat
  52.     "\n\nWhizz HD-Installation "#install-version"\n\n"
  53.     "für die Whizz AGA Disketten-Version\n"
  54.     "von Flair Software(tm), die dem\n"
  55.     "Amiga(tm) von Amiga Technologies(tm) GmbH\n"
  56.     "kostenlos beigelegt wird.\n\n"
  57.     "Skript & HD-Ladeprogramm ©1996 Thomas Kessler\nAlle Rechte vorbehalten."))
  58. (set #msg_nomem "\nSie benötigen eine Speicher-Erweiterung\nfür 'WhizzHD'.")
  59. (set #msg_notrackread "Kann benötigte Datei nicht finden:\n'Data/TrackReader'")
  60. (set #msg_choosedir (cat
  61.     "Wählen Sie ein Verzeichnis auf der Festplatte aus.\n"
  62.     "Dort wird eine neue Schublade für Whizz angelegt."))
  63. (set #msg_space1 "\nEtwa 1810K Speicherplatz wird auf\nder Festplatte ")
  64. (set #msg_space2 " benötigt.\n\nFreier Platz: ")
  65. (set #msg_space3 "\n\nLöschen oder verschieben Sie einige Dateien\nund versuchen Sie es dann erneut.")
  66. (set #msg_choose_insert "\nBitte wählen Sie ein Disketten-Laufwerk und\nlegen Sie folgende Diskette ein: ")
  67. (set #msg_nodrive1 "\nKonnte Disketten-Laufwerk DF")
  68. (set #msg_nodrive2 ": nicht finden.\nBitte wählen sie ein anderes Laufwerk.")
  69. (set #msg_baddisk1 "\nBitte legen Sie die Diskette ")
  70. (set #msg_baddisk2 "\nin Ihr Disketten-Laufwerk DF")
  71. (set #msg_reading1 "Lese Disketten-Datei")
  72. (set #msg_reading2 "von")
  73. (set #msg_reading3 "\nBitte warten ...")
  74. (set #msg_readerr1 "\nKonnte Disketten-Datei")
  75. (set #msg_readerr2 " nicht anlegen.\nÜberprüfen Sie alles und versuchen Sie es erneut.")
  76. (set #msg_exit1 (cat
  77.     "Wichtig: WhizzHD braucht etwa 1.8M fortlaufenden\n"
  78.     "Speicher und kommt nicht auf die Workbench zurück.\n\n"))
  79. (set #msg_exit2 (cat
  80.     "Whizz wurde für einen 'normalen' A1200 entwickelt.\n"
  81.     "Es sollte auch auf einem A4000/030 (oder besser)\n"
  82.     "laufen (stellen Sie sicher, daß die '68040.library'\n"
  83.     "nicht installiert ist oder versuchen Sie, WhizzHD\n"
  84.     "gleich nach einem System-Reset zu starten)."))
  85. ))
  86. ; --- français d'Anna Grömer ---
  87. (if (= @language "français")
  88. (
  89. (set #msg_welcome (cat
  90.     "\n\nWhizz HD-Installer "#install-version"\n\n"
  91.     "pour la version disquette de Whizz AGA\n"
  92.     "de Flair Software(tm)\n"
  93.     "joint gratuitement avec le Amiga(tm)\n"
  94.     "de Amiga Technologies(tm) GmbH\n\n"
  95.     "Script & HD-Loader ©1996 Thomas Kessler\nTous Droits réservés."))
  96. (set #msg_nomem "\nVous avez besoin d'un expansion\nde mémoire pour 'WhizzHD'.")
  97. (set #msg_notrackread "Fichier demandé introuvable:\n'Data/TrackReader'")
  98. (set #msg_choosedir (cat
  99.     "Choisir un tiroir de déstination.\n"
  100.     "Un nouveau tiroir y sera creé pour Whizz."))
  101. (set #msg_space1 "\nWhizzHD utilisera environ 1810K de votre\ndisque ")
  102. (set #msg_space2 "\n\nCapacité libre: ")
  103. (set #msg_space3 "\n\nSupprimez ou deplaçez quelques fichiers\net recommencez.")
  104. (set #msg_choose_insert "\nChoisissez l'unité à lire et\ninsérez votre disquette ")
  105. (set #msg_nodrive1 "\nImpossible d'accéder à l'unité DF")
  106. (set #msg_nodrive2 ":\nChoissisez un autre lecteur.")
  107. (set #msg_baddisk1 "\nInsérez la disquette ")
  108. (set #msg_baddisk2 "\ndans l'unité DF")
  109. (set #msg_reading1 "Lecture de la disquette dans le fichier\n")
  110. (set #msg_reading2 "d'unité")
  111. (set #msg_reading3 "\nAttendez s.v.p...")
  112. (set #msg_readerr1 "\nCréation du fichier")
  113. (set #msg_readerr2 " impossible.\nVerifiez tout et recommencez.")
  114. (set #msg_exit1 (cat
  115.     "Important: WhizzHD a besoin de 1.8M de mémoire\ncontinu "
  116.     "et ne reviendra pas sur le Workbench.\n\n"))
  117. (set #msg_exit2 (cat
  118.     "Whizz a étè developé pour un A1200 'standard'. Le\n"
  119.     "déroulement devrais être aussi possible sur d'autres\n"
  120.     "Amigas (mais assurez vous que le '68040.library'\n"
  121.     "n'est pas installé ou essayez de debuter WhizzHD\n"
  122.     "immédiatement après le system-reset)."))
  123. ))
  124.  
  125. ; --- italiano ---
  126. ;(if (= @language "italiano")
  127. ;(
  128. ;
  129. ;))
  130. ; ------------------
  131.  
  132. (complete 0)
  133. (user 2)
  134.  
  135. (message #msg_welcome)
  136. (complete 1)
  137.  
  138. (if (> 1000 (- (database "total-mem") (database "graphics-mem"))) (abort #msg_nomem))
  139. (complete 3)
  140.  
  141. (if (NOT (exists "Data/TrackReader")) (abort #msg_notrackread))
  142. (complete 5)
  143.  
  144. (set #whizzdir
  145.     (askdir (prompt #msg_choosedir) (help @askdir-help) (default "Work:")))
  146. (set @default-dest (tackon #whizzdir "WhizzHD"))
  147. (complete 7)
  148.  
  149. (if (<> (getdevice #whizzdir) "RAM")
  150.     (if (< (getdiskspace #whizzdir) 18100000)
  151.         (abort (cat #msg_space1 (getdevice #whizzdir)":" #msg_space2 (/ (getdiskspace #whizzdir) 1024)"K" #msg_space3))
  152.     )
  153. )
  154. (complete 9)
  155.  
  156. (makedir (tackon #whizzdir "WhizzHD") (prompt "Creating dir") (help #na) (infos) (safe))
  157. (complete 10)
  158.  
  159. (set #rc 5)
  160. (while (<> #rc 0)
  161.     (
  162.         (set #diskrc 5)
  163.         (while (<> #diskrc 0)
  164.             (
  165.                 (set #diskdrive
  166.                     (askchoice
  167.                         (prompt (cat #msg_choose_insert "\"Whizz 1\"\n"))
  168.                         (help @askchoice-help) (choices "DF0:" "DF1:" "DF2:" "DF3:") (default 0)
  169.                     )
  170.                 )
  171.                 (complete 12)
  172.                 (if (<> "" (getassign (cat "df" #diskdrive) "d"))
  173.                     (set #diskrc 0)
  174.                     (message (cat #msg_nodrive1 #diskdrive #msg_nodrive2))
  175.                 )
  176.             )
  177.         )
  178.         (set #rc2 5)
  179.         (while (<> #rc2 0)
  180.             (
  181.                 (set #rc2
  182.                     (run
  183.                         (prompt "Checking") (help #na)
  184.                         (cat "Data/TrackReader UNIT=" #diskdrive " CHKSUM=0x82afebeb QUIET")
  185.                     )
  186.                 )
  187.                 (if (<> #rc2 0)
  188.                     (message (cat #msg_baddisk1 "'Whizz 1'" #msg_baddisk2 #diskdrive":"))
  189.                 )
  190.             )
  191.         )
  192.         (complete 15)
  193.         (working (cat #msg_reading1 " 'whizz1.img' " #msg_reading2 " DF"#diskdrive":\n" #msg_reading3))
  194.         (set #rc
  195.             (run
  196.                 (prompt "Reading") (help #na)
  197.                 (cat "Data/TrackReader " (tackon #whizzdir "WhizzHD/") "whizz1.img UNIT=" #diskdrive)
  198.             )
  199.         )
  200.         (if (<> #rc 0) (message (cat #msg_readerr1 " 'whizz1.img'" #msg_readerr2)))
  201.     )
  202. )
  203. (complete 50)
  204.  
  205. (set #rc 5)
  206. (while (<> #rc 0)
  207.     (
  208.         (set #diskrc 5)
  209.         (while (<> #diskrc 0)
  210.             (
  211.                 (set #diskdrive
  212.                     (askchoice
  213.                         (prompt (cat #msg_choose_insert "\"Whizz 2\"\n"))
  214.                         (help @askchoice-help) (choices "DF0:" "DF1:" "DF2:" "DF3:") (default #diskdrive)
  215.                     )
  216.                 )
  217.                 (complete 52)
  218.                 (if (<> "" (getassign (cat "df" #diskdrive) "d"))
  219.                     (set #diskrc 0)
  220.                     (message (cat #msg_nodrive1 #diskdrive #msg_nodrive2))
  221.                 )
  222.             )
  223.         )
  224.         (set #rc2 5)
  225.         (while (<> #rc2 0)
  226.             (
  227.                 (set #rc2
  228.                     (run
  229.                         (prompt "Checking") (help #na)
  230.                         (cat "Data/TrackReader UNIT=" #diskdrive " CHKSUM=0x00000000 QUIET")
  231.                     )
  232.                 )
  233.                 (if (<> #rc2 0)
  234.                     (message (cat #msg_baddisk1 "'Whizz 2'" #msg_baddisk2 #diskdrive":"))
  235.                 )
  236.             )
  237.         )
  238.         (complete 55)
  239.         (working (cat #msg_reading1 " 'whizz2.img' " #msg_reading2 " DF"#diskdrive":\n" #msg_reading3))
  240.         (set #rc
  241.             (run
  242.                 (prompt "Reading") (help #na)
  243.                 (cat "Data/TrackReader " (tackon #whizzdir "WhizzHD/") "whizz2.img UNIT=" #diskdrive)
  244.             )
  245.         )
  246.         (if (<> #rc 0) (message (cat #msg_readerr1 " 'whizz2.img'" #msg_readerr2)))
  247.     )
  248. )
  249. (complete 90)
  250.  
  251. (copyfiles
  252.     (prompt "Copy files") (help #na) (source "Data/WhizzHD") (dest (tackon #whizzdir "WhizzHD"))
  253.     (infos) (optional force) (safe) (nogauge)
  254. )
  255. (complete 95)
  256.  
  257. (copyfiles
  258.     (prompt "Copy files") (help #na) (source "Data/WhizzHD_drawer.info") (dest #whizzdir)
  259.     (newname "WhizzHD.info") (optional force) (safe) (nogauge)
  260. )
  261. (complete 100)
  262.  
  263. (exit (cat #msg_exit1 (if (<> (database "cpu") "68020") #msg_exit2)))
  264. (user old-level)
  265. (welcome "")
  266.